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from the editors 


Well» the CLISF BULLETIN): is hack agair, IL was irwenterny 
Lors time aso» bu Daniel G, Bohrowy and a first issue 
rublished im SIGFLAN» Sertenber 1969, The bulletin 


excertionnally deer roots and cannot be pulled free, 


nere is the second issue (which exelains the #2 on the cover). 
We think that the main rursose of the (LISP BULLETIN) 


make easier the communication between members of 
communi Cs s 


We welcome contrimutbionse າຕ following Lorics 


particularis encourasier 
-announcements for new books 
- book and parer reviews 
~ small technical rarers 
- useful functions 
— comments 
~ puzzles 
“+ announcements for new LISF systems 
~ bars of silver | Ä 
- Precious Jewelry 


AS wou may notice we have not changed our. subserirtion 


(freedy acknowledging the freauency of rublicetior. 


We will 


Uru to stick to asa more resuler schedule» so our SUDSOPLE tion 


Policy may be changed imn the future. 


In the meantime» erdo it. 
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(LISP PUZZLES 


from F, GREUSSAY | uu | f 
This is the function SKE. What is she doing? 


(DE ske Cl r) 
(CONI 
(ATOM 1) NIL.) 
CCMEMQ Ir) T) 
(ske (CCAR 1) (CONS 1 r5) T) 
AT (she (COR 1) (CONS 1 r))))) 


from Je ALLEN | 
This is the function FOO. What is she doing? 


DE foo (1) 
(CONTI 
CCNULI 1) NIL) 
( (NULL COUR 1)) 1) 
(CT (CONS (CAR (foo (CUR 122) 
(Too (CONS CCAR 13 | 
(foo (CUR (foo OR 1)))))))))) 


from H+ SAMET 2 ແ. . 
This is the function BAR, What is she doins*? 


(DE ber (x y) | | 
(IF << x 22 CAREL ມ) | | 
(har (SURL x) (bar (mx 2) ຜ)))) 


ns 


from D, GOOSSENS | | | 
This is the function MOBY, What is she doing? 


(DE mobs (1) IB 
(IF (NULL. (CUR 122 
(CAR 1) 
o (mobs (COUR CAPPENI 1 o£ CCAR 512222) 


from H, BOLEY 
Write a LISP function NOTHING without »srameter such 
that the call (NOTHING) does 'notnins/^» i.e. no value 
LEinclucdins MILI ie returned and no effect on the 
further interaction with LISP is noticed. So in LISF 
1.46 for.exammie NOTHING should enable the following 


+ 


interaction i 
(SETQ X Z2 


(NOTHING? 
X 


X ox NR 


` 
s 


x NI 
* 


eee further normal LISP 1.5 interaction +++ 


SEND MORE PUZZLES) 
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(LISF BOOKS 


ALLEN Jer The Anatomy of LISP? MoGraw Hill» New York 1977 


BERKELEY E.C. & BORROW H.G.» Ced» The Frosrammins Lansuade 


LISF 3 Its Orerstion and àsrlications» Information 
International Inc.» The M.T.T. Fresgy Cambridsdey, 


Masser 1964 


FRIEDMAN U.P.» The Little liseery Science Research Associates 
Tmees 1974 | | 


MAURER Wel.» The Frogrammer’s Introduction to LISP, Mac: 
| Donald / American Elsevier Commuter Monosrarhsy 1972 


Mc CARTHY J, & TALCOTT C.» LISP Programming and Provine, 
Stanford Universite» march 1979 | 


nd 


Mc CARTHY J. et aly LISP 1.5 Frosrammer's Manuals The າ້,1,ໄ, 
Press» Camhridses Mass.» 1962 


NAKANISHI M.» Initiation to LISP» Modern Science Co.» Tokyos 
u Jarans 1977 | +: | | 


FETER Roer  Rekursive Funktionen in der Komeuter~Theoriey 
Akademiai Kiado» Budaresty 1976 


RIEBENS Dey Prosrammation non-numeriaue LISP 1.5, Dunod, 
Faris: 1969 


SIKLOSSY Ley Let's Talk LISFy Frentice Hall» Englewood Cliff» 
| New Jerseur 1976 | 


STOYAN Hey LISP Frosrammier-Handbuchy Akademie Verlass Berlins 
DUR» 1978 


WEISSMAN C.» LISF 1.5 Primer» lickensor Fublishins Compans 
| Inter Belmonts California» 1987 


WINSTON FsH.v Artificial Intelligences Addison Wesleus 1977 


WRITE MORE LISF BOOKS) 
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= 


Book review 


JOHN ALLEN, The Anatomy of LISP, 


MCGRAW HILL, New York, 1977. 


At last there exists a textbook for the computer scientist 
that gives a self-contained and in-depth treatment of "LISP" 
in its broadest sense. ALLEN's exposition of LISP serves as 
a manifestation for fundamental ideas such as: structured- 
programing and step-wise refinement, abstract programs and 
abstract data, data-driven programing, proving properties 
of algorithms, programing language semantics, translator 
implementation etc. This text will enable the student to re- 
gain the perspective he possibly lost in studying isolated 
topics or never gained inother so-called "introductions". 
Augmented by projects, "The Anatomy of LISP" is the best 
introduction to computer science I have seen. | 


After introducing symbolic expressions and a few LISP appli- 
cations (mainly in algebraic manipulation), a series of lan- 
guages together with their evaluators is built. ALLEN starts 
out with the language of polynomials, and a function to com- 
pute their value, and then proceeds step by step adding all the 
features usually found in programing languages, until advanced 
constructs like Label, closures and non-recursive control- | 
structures. Each time the language is altered, so is its 
evaluator. The evaluators are rather concise and leave imple- 
mentation issues for refinement to a special chapter. The se- 
mantics of a newly introduced construct is precisely defined 

by the new interpreter/evaluator. ALLEN'S presentation strategy 
breaks the habit by which we acquire natural language constructs, 
namely through perceiving their usage in context. Breaking this 
habit is a healthy first step towards understanding the creation 
of new or more general language constructs. The working of these 
evaluators is clearly visualized using a representation of en- 
vironments also known from WEIZENBAUM's explanation of FUNARGs 
[WEI]. 
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The chapter on implementation covers solutions to the common 
problems and pitfalls encountered when implementing high- 
level programing languages. The discussion of binding is very 
profound and can be recommended as a first reading before 
studying more specialized papers such as [B&W], [STE] etc.. 
Most of this chapter discusses topics also relevant to other 
areas of software engineering: symbol-tables, table-searching, 
storage management and syntax-directed Input/Output. 


The book ends with a series of interesting projects for stu- 
dents. This collection could be augmented by more typical 
AI-problems which would provide motivation for applying the 


idea of language and evaluator design as a means for problem- 
J| solving. 


[B&W] Bobrov, D. and Wegbreit, B. A model and stack implemen- 
tation of multiple environments, CACM, 16, 591-603. 


[STE] Steele, G.L. Jr., Macaroni is better than spaghetti, 


Proc, of the Symposium on Artificial Intelligence and 
Programing Languages, ACM, 1977, 60-66. 


[WEI] Weizenbaum, J. The Funarg problem explained, Intern. 
Seminar on Adv. Progr. Syst, Jerusalem, 1968. 


(reviewed by: Joachim Laubsch) 
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(CURRENT LISF THESIS 


CARTWRIGHT Fe, Jr» Formal Semantics of LISE with ñy lications 
Lo Program Correcthess y Star forn Universi tiy 
Artificial Intelligence Laboratorsvy OEM 25) y January 
1975 


GREUSSAY Fo» Contribution a la definition interrretstive et a 
l'immlementation des  lambda-lansesoesy These d'Etat» 
Universite Faris 7» Novembre 1977; hammort Lele T.F #7 


ECOUFFE P.» Etude et Definition d'une Machine Langage LSE y 
These de  3eme Cyclery Universite de Lilley, Ilecembre 
1977 | | | | 


LUX fer Etude ciu modele abstrait POUT une machine LISP et de 
som  immliementseation» These de Seme-Cucles Universite 
de Grenoble» Mars 1975 | | 


NEWEY M, C.» Formal Semantics of LISE with Ammlicstions to 
Frosram Correctness: Stanford Universitys Artificial 
Intelligence Lsborstorss ALM-257 Januaru 1975 


SAMET .— Her . Automatically — Frovins — the Correctness of 
| Translations Involvins Ürtimized Coder Stanford 
University Artificial Intelligence Laboratory 

AIlM-2359» May 1975 


TERASHIMA M.» Alsiorithus Used in an lmrlenentation of  MHLISEP, 
Information Science  Laborastorus Facultu of Sciencey 
University of Tokuos Jarmers 1775 

WERTZ He» Un Systeme de Uomerenemsiors e’ Amelioration et ce 


Correction de  Frosramnmes Incorreets,s These de Jeme 
Cucle» Universite laris 6» Juillet 1978 


WRITE MORE LISF THESIS 
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(ANNOUNCEMENTS FOR LISE SYSTEMS 


ReRe JOHNSON 

ert, of Comruter Science 
University of Rer tuclu 
l.exinsitons Kentucky 40506 


We are ruttins tosether a LISP-sustem on our Varian 
74  mini-comruter, Our rrimarwv interest is to use 
the micro-rrosrammins carabilities of the machine to 


immlement some of the most used 


LISPF-suwstem. 


Ses MUCHNICK. 

dert of Commuter Science | 
The University of Karsas 
Lawrences Kansas 66045 


An imelementation effort Tor LISE 


Farts of the 


1.5 is mow 


Widerwas om an Interdata 85. The interereter is 


being written in  FL/8S» a locally | develored 
structured assembly — lansase, Thousth the 


immlementation is boing done on a 


model 85 it is 


comsatible with other Interdata ló-bit rrocessors, 


Tre basic  interrreters storage marnasemernty and 
pret Joubert Fackases are. comelete and We are 


currently extending our collection 


intend to imrmlement the modified 
described in P. Greussaw, Iterative 


SURRs, We 
imberrreter 


Interzraetstion 


of Tail-Recursive LIS" Procedures» sass well. 
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Announcement 


A New LISP System for IBM System 360/370 


Over the last eighteen months we have developed in Cambridge, England 
a new IBM specific LISP system, with a number of advanced features. These 
include a built-in pretty printer for echoing of the input, which is also 
available to the user to print list structures. It has extensive and 
comprehensive tracing, backtrace and error recovery facilities, and is 
designed to be safe. Errors such as taking the car of an atom are trapped 
immediately, a feature which is also available in compiled functions. 


The system has extensive numerical features, such as arbitrary 
precision integers and rational numbers, as well as double precision 
floating point numbers and finite field functions, (arithmetic modoulo a 
prime). | 


The compiler is a version of the Griss and Hearn portable LISP 
compiler, which produces compiled functions as a normal LISP object held 
in the heap. To. manage this there is an efficient compacting garbage 

collector. E | 


| The system is yalue cell LISP, and is implemented im a high level 
language, (BCPL). It runs interpretively in 150Kbytes, and with the 
compiler in about 220Kbytes. Measurements have shown it to be efficient, 
(a little slower than Stanford LISP/360 when interpreted, faster when 
compiled) and it has been running successfully under OS in Cambridge for 
nine months. For further information contact one of: 


Dr. John Fitch and Dr. Arthur Norman, 
The Computer Laboratory, | 
University of Cambridge, 

Corn Exchange Street, 

Cambridge, 

England. 


14.1.77 ; JPF, ACN. 
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LISP for Interdata M85, 7/32 


G. Persch, Gg. Winterstein - 


At the University of Kaiserslautern we have designed and implemented a LISP-system 
ID-LISP which runs on Interdata M85 and 7/32 minicomputers. 


The Interdata M85 machine is a byte-oriented minicomputer with 64 K-byte working 
storage. It has 16 registers å 16 bit. The average time for an executable instruc- 
tion is about 1 us. The machine configuration at Kaiserslautern is for interactive 
use only and consists of a Hewlett Packard 2640A terminal and a Diabolo 1620 for 
1/0, 4 disks and an Intertape Cassette unit. ID-LISP was designed in a way that it 


can run under the primitive operation system BOSS. 


ID-LISP contains LISP 1.5 as a subset and has special features from MACLISP and 
INTERLISP as well. ID-LISP has its own EDITOR, PRETTYPRINT, file-handling (LOAD- 
SAVE) and various TRACE- and BREAK-functions. In the current version there is no 
paging. 


The storage allocation is as follows: 


hex.address contents u size Nr 
0000 - 1700 operating system BOSS 5.75 K-byte 
1700 - 2E00 programm-code 5.75 K-byte 
2Eoo - 38oo l/O-Buffer Hash-tables 2.5 K-byte 
3800 - EBoo / | 11 K-LISP-cells 44. K-pyte 
E800 - FFFF | stack | 6. K-byte | 


64. K-byte 


4 bytes form a LISP-cell. Both pointers are absolute addresses. All parts of a 
symbol are represented in LISP-cells. For every symbol we have 


(<list of bindings><function-definition><Pname><property>...) 


Symbols are respresented only once. They are identified through a hash-table wich 
Add-the-Hash-Rehash. Numbers are also stored within the LISP-storage. Small 
numbers (14 bit) are directly represented in the pointer. The garbage-collection- 
algorithm is a modification of P. Deutsch's pointer-chasing-algorithm. 

At the time being the system is only available on cassettes. There is also 

a manual available which is written in German. For more details and further 
informations contact the autors at 


Universitåt Kaiserslautern 
Fachbereich Informatik 
Pfaffenbergstr. 95 


D-6750 Kaiserslautern, FRG 
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The use of LISP at computer centers in Western Germany 


(A summary of G.GÖRZ "Die Verwendung von LISP an wissenschaft- 


lichen Rechenzentren in der BRD", IAB Nr 63, Universität Erlangen- 
Nürnberg, Rechenzentrum, Dez. 76). 


LISP-systems as used on various computer systems 


Computer 


LISP-System 


Burroughs B67ØØ 
CDC : CD 3399 


CDC : CYBER 
bzw. 6000 


CGK : TR44Ø 


i. 
i 
1 
— 


DEC : SYSTEM 1@ 


IBM 36Ø, 37Ø 
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LISP B 6700 . 
LISP 1.5 
LISP FINT 
LISP F 1.1 


LISP 1.5.6 


LISP 1.5.9 
UTLISP 4.@ 


B&LISP (1973) 


B&LISP (1976) 
LISPSYSTEM 
LISP 44% 
MACLISP 


LISP 1.6 (IT) 
LISP 1.6 (28.7.) 


LISP/369 (Stanford) 


Installation 


Inf., Karlsruhe 
U Erlangen 

U Erlangen 

U Gießen 

U Tübingen 

TU Berlin 


RRZN Hamburg 


U Köln 
TU Berlin 
U Stuttgart 


GMD Darmstadt 


uU ERlangen 
Inf. München 


U Saarbrücken 


U Tübingen 

U Ulm 

GRZ, Berlin 
Inf. München 
IMMD Erlangen 
U Bielefeld 

U Bochum 

U Erlangen 

U Kaiserslautern 
Inf. Stuttgart 
Inf. Hamburg 

U Kiel 

U Bielefeld 

U Bonn 

MPI, Garching 
KfA, Jülich 


Interdata M85, 7/32 
Philips Electro- 
logica X8 

Siemens 4994 

(BS 1999) 


Siemens 4964/151 
(BS2ØØØ) | 


Univac 1128 | 
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LISP/360 (Stanford/36, 


Utah-Mod.) 


LISP 1.5/CMS 
(Grenoble) 


LISP (bits) 


LISP FINT 
LISP F2 
ID-LISP 


LISP-X8 


LISP 
LISP F2 


— INTERLISP 


1199 LISP 


GfK, Karlsruhe 
U Münster 


Inf.,TU Berlin 


GMD, St. Augustin 
U Bonn 


U Heidelberg 


U Kaiserslautern 


U Kiel 


U Regensburg 
IdS, Mannheim 


IdS Mannheim 


U Freiburg 


GWD, Göttingen 


U Karlaruhe 


«De 


Applications 


theorem-proving 

GRZ-Berlin, U. Kaiserslautern 
program-manipulation 

GMD-St. Augustin, Informatik-Karlsruhe 
natural-language processing 

Inf.-Hamburg, U-Heidelberg, U-Köln, 

Inst. f. deutsche Sprache (185) , Inf. Stuttgart 
cognitive psychology | 

Phychol. Inst. Uni Hamburg, Inf. Stuttgart 
others: Computer-aided instruction, REDUCE, nuclear physics. 


The report contains a brief description of each LISP-system 
and contact addresses for further reference. To obtain it 


write to G.Görz, RZ d Uni. Erlangen-Nurnberg, INFRA, Martenstr. 1, 
8520 Erlangen. 


. LISP-Reference Manuals (in german) 
(1) INTERLISP - Programmierhandbuch 
Institut für deutsche Sprache 

Abt. Linguistische DV, | 
Postfach 5409, D6800 MANNHEIM 1 


(2) MACLISP - Reference Manual 
J. Laubsch, Inst. f. Informatik 
Azenbergstr. 12, D7000 Stuttgart 1 
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Jerome CHAILLOUX 

Universite de Paris VIII - Vincennes 
Route de 12 Tourelle 

75571 Paris Cedex 12 (France) 


A VILISF System for 
B-bit words micro-comeuters, 


Å new version of the VLISF swstems VLISF 8, 
imrlemented on the 8-bit micro-comruters | 


= Intel 8080 — 


- £ilos BO 


9 


VLISP 8 is available for the following sustems 
= MOS ISIS 1 and 2 (2 8080 based system), with the 
configuration 3 
- 32h. RAM 
~ à Leletyre 
one floppy disk 


- MÜSTEN DOT80 (a: 780 based sustem)» with the 


confisurstion à | 
= 16k. RAM 
~ 8k REPROM 
~ a teleture 


has heer 


minimal 


minimal 


The interrreter occuries Bk butos, Special attention has 
Meer raid to sreed ur the. evaluation of forms. In 


particular: the intersreter does mot Farform art 
CONSes. 
Naturallwu» this sustem owns all the new features 


internal 


recently 


introduced into the other UL TSP syustens, like ESCAFE LESCAPE 
SELF «ses y as well as the iterativo interrretstior of 


teail-recursive functions calls, 


This system is already used to introduce children to 


in ULISP and s LOGO-like lansusse. 


SENT MORE ANNOUNCEMENTS FOR LISF 


4 


v 


"rosre,m 


STEMS) 


-14- 


(CURRENT L ISP MANUALS 


CHAITILLOUX Je» UL. ISP-10 Manuel rie References Der te 
Informsatiaue y Universite Feris-8 Vincennes » RT 
SOP 17746 


DURTEDUX Geodesy TLISSE EIRIG SO» Universite Paul Sabatiers 
Toulouse» 1977 


GREUSSAY F.) LISE T-1600 Manuel de Reference Provisoirey 
Universite Faris-8 Vincennes, RT 10-75» 1975 


HARALIISON Aes  LISP-detsils — INTERLISF / 360-370; ຂະແ ໆ 1 8 
University: 1975 | 


^ LAUBSCH JeHer MACLISE Manual»  CUU-Memo-3» Universitaet 


: Stuttsarts 1976 
: LUX à.» LISP IRIS-80 Manuel d'Utilisation» february 19789» 
8 Universite de Grenoble» LA CNRS no 7 


MOON IA.» MACLISE Reference Manuals M.I+T. — Project Macy 


QUAM L.M. & DnIFFZE Wes Stanford LISP 1,6 Merualv Stanford 
AI Project Oreratins Note 290.7» Comruter Science 
tert.r Stanford Universitys 1972 


TEITELMAN Wee INTERLISF Reference Manuals XEROX Palo Alto 
Research Centers Palo Altos Ca.» 1974 


3 mE — SEND MORE CURRENT LISF MANUALS) 
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INTERLISP - Programmierhandbuch 


In deutscher Sprache liegt auf 340 Seiten 


- ein bewährtes Lehr- und Ausbildungswerk vor, das besonders 
zum Selbststudium geeignet ist und das | 


- ein Nachschlagewerk darstellt, das für alle, die INTERLISP 
benutzen, unentbehrlich ist. 


Inhalt: 


0. LISP und INTERLISP ` 
1. Die Syntax von LISP 

2. Die Arbeitsweisé von INTERLISP 

3. Grundfunktionen 

4. Funktionen und Programme | 

5 Funktionen mit funktionalen Argumenten I 
6. Ein/Ausgabe in LISP 

7. Datentypen und Zugehorige, Funktionen 

8. Spezielle Leistungen 

Anhang A: EDIT — 

Anhang B: BREAK 

Anhang C: Verzeichnis der beschriebenen Funktionen 


Kontaktadresse: Institut für deutsche Sprache 
Abteilung Linguistische Datenverarbeitung 
Forschung und Entwicklung 
Friedrich-Karl-Str. 12, Postf. 5409 


6800 Mannheim 1 
B RD 
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(USEFUL FUNCTIONS 


A DEFINITION OF THE INVERSE QUOTE FUNCTION + @ 


Joachim LAURSCH 


Institut fur Informatik, 
Universitat Stuttsart 
Azenberdstr. 12 
7000 Stuttgart 1 


It Tfreayentlvy harrens that ສ LISE rrosrammer wants a function 
to produce a data-structure or function containing constant 
and variable substructures. The usual solution is to Program 
a form containing a lot of data-structure comrosingd functions 
ike LIST» CONS and APPEND). The resulting exeression is 
hard to decirher for numans  ürless more mnemonic 
constructor-functions are defined. Å simrle was out is to 
write the resulting structure with its variable substructures 
especially marked, | | | | | 


For exemrler return a lembda-exrression which will evaluate 
any form in an environment where X and Y are bound to 
successive elements of Ly and F receives the result ? 


(list ‘lambda ’Cform) | 
(armrmend (list (list “lambda ”(X Y) 
| (list F ”(eval form))) 
Lod) 


Comeare this with the inverse Quote version $ 


CClambda (form) » @ is inverse quote macro 
(Clambhda (X Y) 
(zF (eval form))) y = means eval the following 
| y element | 
yl.) ) ÿ y is 35 = but uses all 
ç elements of the value as 
ç elements in the current list 


As a second examples consider how WOQONS could have returned 
structures without uscsins BUTLDO 


(8 «TYPE =SURJ CTNS= TNS) (VF ເປະ U))) 
The followings is the MACLISF code for @ (with the auxi 
harrowed and imrroved from 3 trace Fackasde of the MIT-Al~-Lab). 


The function RFLACO rerlaces s CONS. Feel free to include 
other macros mssins REAIMAC, 
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CREADMAC MACRO 


CNLAMELA (CF) 
$ TURNS MACRO-CHARS ON WHILE DOING THINGS? 


5 (READMAC “A-LIST? CTHING-TO-DQ2)5s 
s SAWLIST> HAS FAIRS OF CHAR AND (QUOTEN) FUNCTION? 


( (CAUR F) 
(LET 
(CHAR (CAGADR F) EN (GDAALDR F)) 
(RFLACO 
F 


"LET 

@ 

(SYNTAX (STATUS SYNTAX =CHAR) 
FNTYF 
(FNTYF “=CHAR) 
OLE 


(GET ’=CHAR FNTYF)) 
(FROG? (SSTATUS MACRO =CHAR =FN) 
CREADMAC = (CGAUR F) s (CUOR F2) 
(FUNGALL “SSTATUS "SYNTAX ”=CHAR SYNTAX) 
CAND FNTYF CFUTFROF ”=CHAK OLO FNTYP)) 
ÿ SET STATUS AND RESET AFTERWARIGS))))) 
s DO THING WITH READ OR REAL IST) 
 (K(RPLAGO F (CAADDR F) (CCDADDR F)))))) 


(LET MACRO 
(NLAMEDA CF) | 
(COND (CADR F) (RFLACA F “LET1)) 
(cCnnug F) CRFLACO F '"PROGN (CLOR F))) 
CCRFLACO F (Có^ónngs F) (CHANDK F)))))) 


(LET1 MACRO 
(NL AMRIA (F) 
CCLAMETA (CU) 
(COND 
(GULE (CHOR Yd) 
(RKFLACO F wor m 
(CONS “LAMBDA (CONS (LIST (CAR V)) (CDRR F))) 
(LIST (CADR V)))) | 
(U CRELACO 
F 
(CONS LAMENA 
(CONS LIST (CAF V)) 
(LIST 
(CONS “LETT (CONS (COEUR V) (CRER F)))))) 
(LIST (CADR V))3)3) 
(CATR F)))) 
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(RUX MACRO 
(NLAMBDA (X) 
š LISTS WITH EV OR EUX ARE EVALUATED! 
; AND THEIR RESULTS WILL BE CONSED$ 
; OR APFENDEL RESFECTTVELY; 
(CLAMBDA (CY) CRELACO X CCAR Y) (CUR Y))) QUXL (CAUR X))))) 


(RUXI EXFR 
(LAMERA (X) 
(COND 
(RULL X) NIL) 
(ATOM X) LIST "QUOTE X2) 
(GER (CAR X) EVI (CAUR X)) 
(COP TIM 
(CONT 
(CATOM (CAR X)) 
(LIST "CONS (LIST "QUOTE (CAR XI) (RUXI (CER X)))) 
(CEQ AAR X) "EVY 
(LIST ‘AFFENT (CADAR X5 (RUXI (COR %)))) 
{LIST “CONS CQUXI (CAR X)) CQUXI (CURK X222222)20)20)) 


COFTIM EXER 
(LAMBDA (X) 
ç ELIMINATES UNNECESSARY FN-CALLS 
(SELECTA (CAR X) 
(CONS 
5; (CONS X (LIST dd) s (LIST X ===) 5 
(COND 
C(CADITIR X) 
(CAND CEQ (CAADDKR X) “L IST) 
(SETQ X (CONS “LIST (CONS (CAUR X) (CHADUR X2222)) 
(OSETQ X (LIST “LIST (CADR XIII) 
(AP FINI 
$ (AFEFEND X (APFEND -:--)ງ) => CAFPENT X ---)25 
(COND 
CCCALTIK X? 
CANT CEQ (CAADTIR X) AFREEN) | 
(SETA X (CONS "AFFEND (CONS (CADR XJ CCDANDK %)))))) 
((SETR X (CARR X222)) ອ. | 
NIL.) 
CAND (CATCH MAROC “(LaMBDBA (ARG) 
(COND (ATOM ARG) (THROW NIL?) 
(GER (CAR ARG) "QUOTED) 
CCTHROW NIL )))) 
(CUR X))) 
(SETQ X (LIST "QUOTE (EVAL. %))) 
ç E IS-IN (APPEN CONS LIST) 
ç CF ‘À BR ----) s VALUE; 
$ WHERE VALUE = (EVAL CF “A “B --:-) 232 


SEND MORE USEFUL FUNCTIONS) 
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(TECHNICAL NOTES 


A VLISE Interrreter 
on the VEMCY Machine 


Mau 1977 
Jerome CHATLLOUX 


Universite de Faris VIII = Vincennes 
Route de ໂລ Tourelle 
75571 Faris Cedex 12 (France) 


VEMGL is a virtual machine designed to observe “in vitro" 
the behaviour of VLISF interrreters, UGMG IT is aetually 
" entirely simulated in VLISF 10. We rresent ສ short 
| descrirtion of the VCMCL machine followed bu the comrlete 
Listing of the code of a UL. ໄວຕ intermreter, This 
interrreter incorrorates tine special feature for 
tail-recursion function calls. | 


Basicalls UCMCI is a 16 bits machine, An instruction uses 
Ones twos three or four words» and has one» two or three 
orerands.+ Each orerand is coded on a 4 bits field, 


There are two formats for the instructions 1 
3 orerands instructions t} 


Lor. code » lst operand » 2nd oserand » 3th orerandi 
w tits id se Le: 11 + + a Få ç + à 4 +“ Q 


++ 


+ orerands instructions 


Por. code y Ist orererd y 2nd oreranct] 
mite - 15 8 Z i5 4 3 "EM 0 


sreciPication of the orferande | 


AX. resister 0. Holds sometimes the result of comer Lex 
instructions (Goes GET), It is used as index 
register, 


Al resister l, 
AR register 2, 
AJ ` resister 4. 
Ag register 4, 
AS resistar S, 


AG PESLSLEr 6e 
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à VL ISE Interrreter on the UCMUT Machine 


LINK register Fe 


FG resister 8, ls the erosram counter. 
ST register 9. Is the stack rointer. 


TST the tor of the stack. 

+T T the tor of the stack after  incrementation of the 
stack, rointer. | 

TST- the tor of the stack. The stack  mointer it 
decremented after the commutation of the effective 
address. 


(value) a 16 bits value enclosed in earenthesis. This value 
. 1 Stored ir too word ust following the 
instruction. | 

(R . address) the value contained in the location specified. 
Used to denote indirection. The address is stored 
in the word following the instruction. | 


el 


-- 
+: 
. 


NIL ` the atom NIL itself. 


These operands allow several kinds of eddressind + 

— direct on resisters AX Al 627 63 44 Al 66 LINK FÅ ST 
- indirect on SF | m | | 

- auto-increment om SP and PC 

- guto-decrement on SF | 

— suborincrement indirect on CC. 


Terminolosw and notetion 

ri . effective address of the ist obrerand 

r2 effective address of tne And orferard 

r4 effective address of the 3th orerand 

f es r'/' move the content of the effective address v 
| into the word of effective address ກ” ” 

r^ get på? exchange the contents of the effective 

| addresses r' and r 

(CAR vr) the CAR of the effective address r 

(CUR rd the COUR of the effective address v 

acti & act? denotes the overlar of the two actions 


a 
å 
: 
E 


The instruction set 


Instructions described are only those used . DW the 
interrreter listed bekas 

The effective addresses of the two or three orerands are 
comeuted before the execution of the instructions» excert in 
the case of conditional iumes. | | 


age +: .. "າ" edo + Poe © ` ເ) 1 aie ah 1 
L. Cart Fer rom © t CE V. 23 


(MOVE ri ra)? pO er rpi 
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A VLISF Interrreter on the VCMCI Machine 


(EXCH rl r2) rå de pl ; 
CMOVE ri r3 r3) ri -> r2 & r2 => ra 
(CAR ri r2) (CAR r2) «so rl 
(CIR ri r2) | (CUR r2) ~> ri 
CRPLACA ri r2) r2 = (CAR r1? 
(RFLACI ri r2) rR -> (OUR r1) 


(MFUSH ri r2) — ri <> 4TST 9 if r2 # NILy r2 -+ 4181 
(MPOP ri r2) TST- => ri $ if r2 & NIL, TST- «> r2 


Transfers and branches 


(MOUR ri r2) r2 => ri & TST- => FC 
(MOVJ ri r2 r2) r2 «so ri & r3 => FC | 

' (MOVE rl r2 rå) r2 -— ri & FC = +TST & r3 =r FC 
(CARR ri r2) (CAR r2) — ri & TST- — FC | 
(CDRR ri r2) (CUR p2) -— 191 wx FU 
(RFLACAR ri r2) r2 ~> (CAR ri) & TST- «> FC 
(RFLACOER ri r2) r2 =m (CUR ri) & TST- e> FC 


i 
— 
pi 
າວ 


| Unconditional branches 
, (JUMP ri) C rl = PC _ 
| (JUMPX ri r2) ri + r2 — PC — | 
(CALL ໄໄ) O PG => 47ST & ri -> PC 
(RETURN) TaT- => PC 


Conditional branches 


(JEQ ri r2 r3) if rl = r2 then r3 =m PEC 
(JNEQ rior r3) if ri # r2 then r3 — PC 
CJTNIL ri r2) if ri = NIL then r2 - PC 
O(QJTNIL ri 702) if ri # NIL then r2 => PC 


{JTLIST ri ré) «GT ri is s rointer on a list then p? - FÜ 


(JFLTST ri r2) if ri is not s rointer on as list 
then r2 => FC 


CJINUMB ri r2) if rl is a Fointer on a number then r2 =r FC 
CJENUMB ri r2) if ri is not å Pointer on a number 
Lhen r3 -- PG 


- +. te s 


4 | Other instructions 


CUNCONS rl rå r3) CCAR ri) -> rå & (CDR ri -> r3) 
(CONS ri ré rå) (r2 +< va) ~r pi 
GET ri ræ) - (GET rå r2) — AX 


GSurbas of the assembler 


The VLISP simulator handles lists of YOMCL instructions» in 
which  selomic elements are labels. It dis rossible ta 
shbreviate instructions which Look Like 

| Cored ort are (lanel)) 

into (orcd ori op . label? 
In order to decrease the size of such a list. 
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-INTERFRETER '€ 

; ee v M ud s. s. EE wan ana ".າ s. ban ານຊ sasa OED າາ —Á mbet "ຈາລ າ — ເທາ OED ເ s. ແາ ແນ men ຈາ , 
; UC MC 1 $ 
$ -$ 
$ : 

$ VLISP: interrreter ; 
; ——————Á vm su vim «bu ຍາຍ 40 se ...... GEA າາ Aum — ຍານ ຜາ າາາ າາາ “າາ “າ າມ sut vr ເາ — sem t... dum sam cam າາ "າ າລະ “ຈາ ກາ ແາ eur "ແ ; 
; binding of arduments for standard functions ; 
; ;+ 
; LSUBR + Al <- value of the 1st ardıment $ 
; 2SURR ເ A2 =~ value of the Ist arsument ! $ 
$ Al “m value of the 2nd arsument ! ; 
; NSUBR ! Al %- list of values of all the arsuments $ 
; FSUBR ? Al <- non-evaluated $ 


TOFLEVEL 


FRINTAL 


GETFN 


- GETFN1 


GETFN3 


GETFNS 


GETFNé 
GETFN7 


GETFNS 


EVALCAR 
EVAL 


QUOTE 


EVALL 


(MOUC Al C’TOFLEVEL) 
(CALL . READ) 
(CALL + EVAL) 
(MOV) +TST (TOFLEVEL) 


» FRINTA1 i; 


(CONS Ai Al NIL) 


(MOUJ A6 PC . GETEN) 


TOP-LEVEL function $ 


. PRINTAL) $ (WHILE T 


$ 
$ 


+ PRINTA1); 


list of all the arguments 


CPRINT 
(FRINT 
(EVAL 


I TOFLEVEL ) 


m Ge er Sv 


(REALE) )) > 


because FRINT is å system NSUER $ 


(JUMP + PRINT) 
4-— wa ———— M — MÀ G 
$ functions of the interrreter j 
$ a se eus vote <b 00 Gum Opin appl aus ue ASA ia tie dut ign Eté sie Du enh ‘age 4 ose ania a so € G 
ÿ GETFN ? recognizes the tyre of the function stored in A2. $ 
$5 call + (MOVJ A& FC . GETFN) i.e. return address in Aó $ 
$ result im AX 3 ; 
$ AX <— 1 if 1SUEK the address of the function is stacked $ 
$ AX <- 2 if 2SUBK : | $ 
$ AX <- 3 if NSUER M . | | ? $ 
$ AX <- 4 if FSUER | * | _ = | . ; 
$ AX <- 5 if LAMBDA ((ivar) ees body +++) is stacked $ 
; AX = 6 if FLAMRDA , | LEE ນ A |j 
$ AX <~ 7 if GAMMA = EP. | s $ 
$ don’t destroy A1 ! $ 
(JTLIST A2 , GETFNS) 
| $ the function is ən atom 3 
(GET A2 ("EXFR)) $ is it an EXFR ? $ 
CJTNIL AX , GETFN1) | j+ nos — 
(MOVJ AZ AX , GETFN) I ves I retry with the new (expression ; 
(GET A2 U’TYFFN)) $ is it å standard function ? $ 
(JTNIL AX « GETFN3) . $ no i$ 
(MOVJ +TST (XVALX ເດວຽ) A6) $ ves I stack the address and return 3 
(CAR AZ ດ່ລ) ; indirection on the value of the atom 
(JUMP , GETFN) 
y the function is a list š 
CUNCONS A2 AX +TST) y Stock CClvard e+ body ses) $ 
CJNEQ AX C’°LAMBIIAD . GETENG) f is it a LAMBA ? $ 
(MOVJ AX (15) AS) > ves + value = 5 and return $ 
CJNEQ AX (FLAMELA) , GETFN?) $ is it a FLAHRDA $ 
(MOUJ AX (6) Ab) $5 ves $ value = 6 and return 3 
(JNEQ AX C’GAMMA) , GETFNØ) £ is it a GAMMA ? $ 
(MOVJ AX (7) A6) $ ues i value = 7 and return $ 
(MOVE TST Aó) 
(MFUSH AL) ; in others cases 3 
(MOVE Al AQ , EVAL) å re-evaluate the function š 
(MOVIE A2 Al TST-) 
(C M0U.J AS TST- . GETEN) 
y» EVAL % ISURK Al z- the forme to be evaluate $} 
+ AFFFLY + 2SURR Al z- the list of values readu 3 
y BL function to arrly $ 
(CAR Al AL) ? (EVAL (CAR ALD) 5 
CJTLIST Al , EVAL1) | in case of a list 3 
CJTHUME A1 TST-) $ numbers are not evaluated 3 
(CARR Al A1) ; the value of an atom is 
its C-value (i.e. its CAR) $ 
(UNCONS Al A? Al) Al “~ the function» 
2 “— the list of arsuments ° 
(JEA Al (”QUOTE) , QUOTE? E special case for the QUOTE function ; 


find the ture of the function ; 


CJUMFX AX ເ (EVALCAR) (EVAL2) CEULIS) TST- (EVALJIY(AFFLYF)(EVALA))) 


$ I15URR 


2SUBE 
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NSUBR 


FSULR LAMBA FLAMEDA GAMMA 3 


; 


, 


-23-- 


EVAL? ? for the 2SUGKSs $ 
CUNCONS AL Gi FIST). 
CEALL e ERAL?) : 
{EXCH AL TST) | 
(CALL + EVALCARI: 
(MOVE AS TST-) 


“<? 


evaluste the ist arsumert ສູ່ 


<; 


evaluate the One arenament $ 


f EVALZ ` > evaluation of LANBDA-errsressiors 3 
| (MOVE +TST CAFFLYL) , EUL IS) 


EUALA y evaluation of GAMMA-exPrTOSSiOhns På 
I (MOVJ +TST CAPFLYG) e ແບ ເຮງ 
AFFLYG (CONS A1 Ai NIL) t used by marring functions è 
AFERY (MDVJ AG FO , GETEN) ; set the ture of the function } 
CJUMPX AX (CCAR CAPPLY2) YST- TST- CAPEL YL CAFFLYG) CAPPLYG) ) 
” l1SUER 2SURE CGURR. FEUER LAMETA FLAMELA GAMMA y 
AFFLY2  CUNCONS ^1 42 ni? 
(CARI AL Al) 
APFLYG (CAR ^1 Ai) 
. (JUMP , AFFLYL) 
APFLYF (CONS Al Al NTL) 
y APFLYL must follow 2.4 $ 
» sdenerei Tor LAMENASELANEDASGANNA ÿ 
7 Surkrose I AL ge list of values ro oc ; 
; TST <= tC(1var) 10, bodu ບ ບ] $ 
AFPLYL CUNCONS TST- AD a3) ` >? AL “— lvar» ^3 <~ bodu. ; 
^ P test of tail-recursian š 
i CUINER ໄບ້ , TST) (“£&TBER) a APSLYNY $ åt is not in terminal rositior 
i GJER ໄ , LINK) AZ . ລະເ ຟງ i it is not a recursive function 


£ srecial binding for tail-recursive function $ 


RERIND  (CJFLIST 42 , REBIND2) 
REBIÍNIi1 CUNCONS 42 AG AD) 
| (UNCONS AL ເຕ , AS) AL) 
CJTLIST 52 , REBINIL) 
REEINI2 (JTNIL 62 . FROGNAZ: 
(MOVI (B + A2) AL , PROGNAS3) 


larg is atomic 5$ 

AS <= new variable å 
force the new value 3 
Variables left ? 3 
real end of Ivar $ 

in case of LEXER $ 


Wp Oo» າຍຍ We Se e 


P normal binding with sroservetion of the old values 3 


AFPLYN  (MPUSH LINK (MARKER) ງ > brecial mark in stack i 
BIND (JFLIST A2 e BINU» — | 
I (UNCONS Ai A4 ñi) 5 A4 Z= next value $ 

(UNCONS A2 AG AD) ; AG £- rest variable ; 
(MOVE +TST (8G , AG) 64) | ແ 
MOV.) +TST A5 , RINT) 

| BINH? CJTNIL 62 , BIND) ° ; reel end of lvar $ 

GACYN TSY (ຜູ່ , AZ) 51) 
CMPUSH 62) | 
Å BINDS (BEUSH AX) 


“À en mes.) 


a 


» Gexccutios of the body of the function $ 
E (MOVE LINK ST . FROGMAXS 


(i KTRA (MOV ດະ FO . UNBINIO 
(RETURN; 


£ tribire the previous bLbimdiiggs 3 


UHRIND —(MOU. AS TST- , UNS LEDS 
LUMBRIMIPL (RELACE AG LINKO 
UNRIHML2 CMPOR AS LINK) 
(JG AS C MARKER) , UNEINDBI) 
JUME fk) | 
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FROGNA3 
EFROGN 
FROGN 


FROGN1 


LIST 
EVLIS 


EVLIS2 


LESCAPE 


IF. 


COND 
CONDI 


OR 


AND 
ANDI 


FRET 


WHILE 
WHILE 


WRILES 


-s We 


ee ee ST ee vere 


control funetions 


“າາາ ee bAt meia bpi naft ຈາ 4409 ຈານ Dee +32 Se ໄຫ 


+» we wr 
u: Se < 
» 
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+ FROGN $ FSURRr EFROGN $ 15SURR $ 
5 allows to handle the tasil-recursive furictians 3 


(MOVE Al 43) internal (FROGN A3) $ 


“> 


(UNCONS Al Al AD) s next element $ 

(JFLIST A2 , EVAL) u ; there is one element # 

(MOVE +TST A2 . EVAL) | 

(UNCONS TST- Al A?) » next element 3 

CJTLIST AS > FROGNI) 5 it is not the last element 7 
(JUMP , EVAL) Poit is the last element + 


» LIST + FSUBRe EULIS t iSUBR 5 


(JFLIST Al TST-) » nothing to do $ 

(CONS A? NIL NIL) f Frerare the head of the result 

(MPUSH 42) ; which is saved in the stack $ 

AZ is also the address of the 

last CONS-cell 3 

{UNCONS Al Al +TST} next element 3 

{MOVE +TST 42 , EVAL) * save the remainder and 
evaluate the element $ 


(CONS A? Al NIL) 3 CONS the value $ 

(MFOF 3 Al) f restore. last and the remainder 
(RFLACDI A3 ດ່ວ) 

CJTLIST At , EVLISI) s list not exhausted ? 


(CORR AL TST-) 


; LESCAFE $ FSUBR à 
ÿ allows to force s tail recursion $ 


(MOVIHTST CKTRX) , PROGN) 


IF ; FSUER, The most simrle conditionnal function $ 
allows to handle the tail-recursive functions $ 


(UNCONS Al Al +TST) | 
(CALL + EVAL) ; evaluate the rredicate $ 
(UNCONS TST- A2 A3) | 


CJTNIL Al . FROGNA3) s else clauses j 


(MOVJ AL A2 , EVAL) > then clause $ 


+ COND ; FSUBR, The most famous CONDitionnal function š 
» allows to handle the teil-recursive functions 3 


(MOVE A2 A1) 

(JFLIST A? TST-) 
(UNCONS A? Al +TST) 
(UNCONS Al ài 4TST)  . 
(CALL + EVAL) E 
(MPOP A3 A2) 

(JTNIL Al , CONDI) 
(JFNIL A3 . PROGNA3; 
(RETURN? | 


no more clauses $ 

Al <- next clause $ 
Al zx- the predicate j 
evaluate it $ 


w "Wb + າຊຸ: 


the predicate is false 3 
evaluate the clause $ 
the clause is emrty ÿ 


“> ww “> 


+ GR AND + FSURRr losical connectors $ 
r allows to handle the tail-recursive functions 1 


(UNCONS A1 ^1 42) 

(JFLIST 42 , EVAL) * the last element ? 
(MOVE +TST A2 , EVAL)? 

CJFNIL Al , FRET) 

(MOV AL TST- OR) 


(JFLIST A1 + TRUE) 
(UNCONS Al AL 62) 
(JFL IST 82 , EVAL) 
(MOVE +TST AS + EVAL) 
(JTNIL At , PRET) 
(MOVJ AL TST- . AND1) 


(AND) ~> T $ 


the last element $ 


=> 


(MDVR A2 TST-) ror and return # 


«er 


" WHILE % FSUBR $ 


(MOVJ +TST AL , WHILE) 
(CHR AL TST) 

(CALL + FROGN) 

(MOUC Al TST , EVALCAR) 
(JFNIL Ai + WHILE) 
(MOVR 2 TST-) 


ae 


stack the whole expression $ 


evaluate the test 3 
it is ready for an other turn 
finish $ 


er “Cr າທະ 


EN 
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? 


er 


2252 


_ * 
$ fl mm <“: v GEM .- VAT Reit s OU agao culi Pob OO cH) "“ piv aat :- “““ pact cap ?# 


` $ Predicates and searches j 


, qe áp Ole net ຕ “າ "ເ- <“ ເ“ s. Ot uim V. 000 s. “ຈາ Q. s? s. s. $ 


ISUBR $ 


j NULL NOT ATOM NUMBF LISTE : 
NULL | 
NOT (JTNIL AL + TRUE) 
: (MOVR A1 NIL) 
ATOM (JFLIST ài . TRUE) 
(MOVR A1 NIL) 
NUMBP (JTNUMB A1 . TRUE) 
(MOVR A1 NIL) 
LISTF (JTLIST A1 , TRUE) 
(MOVR A1 NIL) 
$ EQ NEQ ! 2SUBR $ 
EQ (JEQ A1 42 . TRUE) 
(MOUR A1 NIL) | 
NER (JNEQ Ai A2 . TRUE) 
(MOVR Al NIL) 
5 EQUAL NEQUAL ? 2SUER | 
NEQUAL  (MPUSH , NOT) TE | 
EQUAL (MOUC AS ST , EQUAL2) t rrerare A6 for fast return $ 
(HOUR AL (CDD) —— | | | 
EQUALI  (JFLIST 42 , NAN) | | 
| (UNCONS AL AL +TST) 4 edr down A1 j 
«UNCONS A2 A2 *TST) å ດປ" down 42 # ` 
(CALL « EQUAL2) © ) recurse on CAR 3 
(MPOF A2 A1) | 
EQUAL2  (JTLIST Al . EQUAL1) i iterate on CDR $ 
(JEG AL A2 TST-) . P | 
NAN (MOVJ ST Aó . FALSE) § fast return $ 
TRUE . (MOVR AL ('T)) | 
FALSE  (MOVR Al NIL) 
o $ CAR CDR 3 15UBR s 
CAR (CARR A1 A1) 
CER (CORR A1 A1) 
3 GET 1 2SUER j 
GET (GET A2 AL) — 
| (MOVR AL AX) 
I MEMO 3 2SUBR j 
MEMR1 (JEQ (@ , Al) A2 TST-) 
(CIR AL A1) | 
MEMQ (JTLIST Al , MEMQL) $ the list is empty I 
(RETURN) | | | 
Pp-———-—------————-- må 
; create and modify 3 
f å 0008 Hede RA Mame soen . DE +“. Vue Damm v. 208 raad r pany meee v... $ 
5 MAFC + 2S8UEBR» the Position of the ardımerts is non-standard $ 
MAFC — (EXCH AL A2) ; Al <- list of arguments 


A2 <- function 3 
| (JFLIST Al TST-) f nothing to do $ 
MAF'C1 (UNCONS Al AL +TST) | 

(MOVE +TST A2 , APFLYC) 
(MPOF A2 At) l 
(JTLIST AL , MAFC1) 
(RETURN) 
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NEXTL (CAR ^2 A1) 


(MAFC 


http://www.artinfo-musinfo.org Li 


5 MAFCAR + 2SUBR ; 


MAPCAR (EXCH Al 42) 


ຈະ 
> 
F 


| AL = function 3 
(CONS AS NIL NIL) : 
o (MOVJ TST AS , HAPCAR2 
MAFCAR1 (MFUSH A3) 
(UNCONS Al Al +TST) 
(MOUC TST A2 , AFFLYC) 
(CONS A3 A1 NIL) | 
(MFOP A2 A1) 
(KFLACD TST- A3) 
MAPCAR? C(CJTLIST Al . MAFCAR1) 
(CHRR AL TST) 


next argument $ 
save the function $ 


we "ໆນ 


; RFLACA KFLACI í` 2SURK $ 


RPLACA CRPLACA AZ AL) _ 
(MOVR A1 42) 

RFLACD (RPLACI A2 A1) 
(MOVE A1 A2) 


; SETQ + FSUBR 5 


SETR (UNCONS A1 +TST 62) 
CUNCONS A2 AL +TST) 
(CALL + EVAL) 
(MFOP AZ A3) 
(RPLACA A3 AL) 
(JFLIST A2 TST-) 
(MOVJ AL A2 . SETA) 


stack the name 3 
stack the remainder 


evaluate the value 1 


"b "ສຍ Sp 


set the new value 3 
mo more courle + 


< າປ 


ç SET * NSUBR, SETQQ 1 FSURR $ 


SETAQ — | 

SET — ` CUNCONS Al A2 A1) 

x | &«UNCOQNS A1 ເຕ , 42) A1) 
(JTLIST ài , SET) 
(MOVR Al (R , ADD) 


P NEXTL $ FSUER $ 


A2 “= atom s 
AS z- its value $ 


ຈະ! whe 


(CAR A3 82) 
(UNCONS 63 AL 43) 
| CRFLACAR A2 A3) 
; CONS I 2SURBR $ 


CONS (CONS si AS AL) 
| (o (RETURN) ` 


; REVERSE + 2SUBR $ 


REVI (UNCONS AS AS A2) 


(CONS ST AJ 01? Í 
REVSAR < JL COT RE å REVA? 


RETUR) 


> $ end of the SETQ -INTERFRETER 3 ) 


P initialisation of the indicators of the standard functions $ 


MAFC 
"(ATOM CAR COR EPROGN EVAL EVLIS 
LISTF NULL NUMRF) 
"(LAMBDA (X) (FUT X 1 ’TYFFNDD) 


“(APFL Y CONS EQ EQUAL GET MAFC MAFCAR 
MEME NER NEQUAL REVERSE RFLACA RELACI} 
“CLAMBDA OG (EUT X 2 TYFFNY)) 


(MAF C 
^CFRINT PRINT TERFRI READ SET) 
“CLAMBUA (X) (PUT X 3 “TYFFN):)) 


CMAP | 

"(AND COND IF LESCAFE LIST NEXTL OR 
FROGN QUOTE SETQ SETQQ WHILE) 

“(LAMBDA (OX) (FUT X 4 'TYFFN))) 


’-INTERFRETER) 
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Å SYSTEM TO UNDERSTAND INCORRECT PROGRAMS 


Harald Wortaz 


Universite de Paris VIII (Vincennes) 
route cde La tourelle 
7535741 Paris 


Abstract i " 

This parer presents a system  CEHENARETE) 
Which understands and imeroves incommrmletel«v 
defined LISP rrosrams» such ss those written 
Du Students besinnins to program in LISE, 
This swstem Lakes» 854  inruts;s the rrodram 
wi trout amd additional informations In 
order to understand the srogrems the sustem 
mota-evaluates it» using 2 library of 
"praoasmatic rules *y descerihing the 
construction ard correction of seneral 
F POST ali constructa» and a set of 
“srecialiste"» describins the syntax ລາຜ 
semantics of tne standard LISE functions. 
Tne system can use its understanding of the 
rosrsm to detect errors in it» to dehus 
true m anc» eventuallus bo Justify its 
erorosed modificstions. This rarer dives a 
brief surveys of the workins of the systemy 
emehnasdicins om some commented examrlese — 
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A lot of effort is actually sent on the develorrement of 
tools to hele Programmers in  constructins»  debussins and 
verifying Programs. Unfortunately most of these tools 

- impose too much constraints on the intuitions of the 
Programmer Dof DIJNSTRA 19761» 
^ Bre working onis on Gg very limited subset of  rossible 
+rosrans Eef RUTH 19741» | 

— gre only workings on correct  rrosrams Cef ARSAC 1977 
TGAKNASHT et al 192321. | 


Dur aim ig two- tolg 3 


es fe Lo make awe 1 ສ. T, tro briovwi eddo imvolver it 
Ccongsteuctinsd erd Genie ir rrosfreans amc 


ec Lo verifs = not tine correctness of rrodrans - but 
their "eongsdiotencu" and to  wrovide "hints" for 
improving end correcting their  srodrams to the 
erosrommern,. 


To this end we have nuild our system on four main concerts t 
t en slsorihthm of mete-evaluation Cof GODSSENS 19783 to helr 
the system to understand esch of the vossihle raths of the 
"rosramy — | 

2 a set of "specislists"r i.e. a set of “roceduraæl 
sracifications of the suntax and the orerational semantics of 
the standard LISP fTunctiongss | 


example +  emeciealist CAR Tor the munter 


CCAR-1 (X) => E 
v CX atom (CAR X) 
& Lure (X) = LISTE) 
v (å S-exrression (CAR X) 
| & ture (val (XX) = LISTE) 


`` 


ee 


else | 
modify X until CaAned (X) = TI 


varsrehrastnd à 


CAN exrects bhat ils arsunent is 
—^ an atom 
and the tyre of the value of the 
ardument is s List 
~ a D-euxmression 
grid the tare oT the value of that 
SEXP DES ON is å list 
else 
CAR has to modify the argument until 
one of these two conditions is true 


ard tne srecialist CAR for the semantics 
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CCAR-N => 


ars + (X (meta-eval X)) : 
test + (ture (val (X)) = LISTF) =% | 
(Lure (val (X)) = 7) m | 
| => hurotbhesize OX» ture LISTE) 
T => comrlain (Xy ture + LISTE) 
action + af (existe (CAR XI) er (CCAR X) 


else (create (CAR» XD) —— > (CAR X)3 


or in rarerhrasind t 
CAR--N 


has an arsument named X, which must be evaluated 
One must verify 
if 
the tyre of value of the  arsument is ສ 
list» all is ok 
else | 
if the ture of value of the argument isn’t 
knowns one has to create a hyrotheticel 
. value of ture LIST for X 
else | 
one has to ask the debusser to change the 
test of the rrosram im such a was that the 
value of X becomes s list 


the value of CAR is 
if 

there exists already 3 CAR of Xy this CAR 

else | 
one has to create ສ sumbolic value for X» 
the CAR of which will be the desired value 


These srecialists are the agents of the meta-evalustion 


and 


they represent the sustem’s knowledse about the Frosrammindg 


Language ແດກ 


3 ລ set of "rasmatic rules" describing general program 


constructs ລາລ methods to rersir inconsistencies 


@examele 3 
rule of the derendence of a loor of the 
Predicate => 


if no variable of the exit-test is modified inside 
the loors then the loom is irnderendent of the 
exit-test and» its execution is mon-terminating or 
the loor will rever be executed, 


The set of these rules expresses the sustem’s deneral 
knowledge about the well-formecdness of Frrosrams and shout the 


correction of errors? 
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4 during the analusis of a rrosrams FHENARETE contructs some 
descrirtion = an internal rerresentation - of the rrosram 
under the form of “cognitive atoms. These mas be considered 
as the nodes of ສ retvork-like rerresentation of the rrosram 
actually analysed, 


The system accerts every LISE  wrosram conforming to the 
followins restrictions % 


^ vartbitionins of tne names of variables» funtions sand 
Lanelsy 


mv 811 Tuntion cells must på "call puy mame" $ 


the unique TFureticnal araımaenmts admitted are exrlicit 
lcmica-ceouumresooiontse 


We call this subset of LISE 1 ertorrmded Tirst order LISE,» 


To use FHENARETE, the user has to sive to the system only the 
text of the draft version of the rrosram he wants to write» 
without any additional information like inrut/outrmut 
assertions» commentaries» plans etc, The system will try to 
understand what tone user wanted to dos ard» if necessary, 
modify the text of the wrosrsmm. 


To sive some feeling of the working of the systems let us 
examine some exame les in detail t | BEEN | 

Qur first exemrle is a (verv) erroneous version of the well 
known REVERSE functions Here is the actual input to the 
system + 2 | | 


? (P “(DE REV L1 L2 COND ULL L22 Ai T RUE AL ONS CRA Al A2)) 
FHENARETE will first correct the ssellins errors ໃ 


ERREUR? | 
NOM == CP ULL --+ NULL) 


NOM == (P L22 ==> L2) 
ERREUR t | 

NOM ==> (P Al --ະ LÀ) 
ERREUR t 

NOM ==> (P AL w= L1) 
ERREUR t 

NOM ——> (? RVE ---+ REV) 
ERREUR t 

NOM ——> (? RVE ---+ REV) 
ERREUR t | 

NOM ——> (ໃ AL ==> L1) 
ERREUR: 

NOM ——> (? ONS ---+ CONS) 
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ERREUR ? 

NOM ——> CP CRA --> CAR) 
ERREUR? 

NOM meer CP AL ——— L1) 
ERREURS 

NOM --> CP A2 mer L2) 


After having verv well corrected the sy ຫຼ ll ims arrorsy 
FHENARETE proceeds to s first anslusis where she uses only her 
syntactic knowledge. The result of this first analysis is a 
"suntacticallw corrent" L ISP vrosram (| G. 3 Programm 


* 


accerted by arv smart LISP interrreter or commiler) ? 
FROFOSITION 1 ? 


(DE REV (L1 L2) 
(CONI 
( (NULL. Le) L1) 
€T (REV L1 (CONS (CAR Lid L2I)))) 


These first imerovements nave eliminated all the syntactic 
* 


errors. ANYW3ayds there subsist two semantic errors t 


«1 in the recursive call of rev» the first argument Li is 
not modified. This creates an infinit recursion. 


-2 even with ສ modification of Li in the recursive calls the 
recursion won't stor either since the stor-test has as 
argument Ley a List which srows longer and lonser in the 
rum of the succesive recursive calls. 


FHENARETE can not disambiguate this function — she does mot 
know ars tnins of the intentions of the programmer - so she 


+ 


sives two different rrorositions ໄ 


m d 


FROFOSITION 2 3 


(DE REV (LI L2) 
(CONTI | 
(NULL. L2) Lid 
(CNULL 1.13 L2) 
(T (REV (COR L1) (CONS (CAR Li) L2))))) 


AT LEAST YOUR FUNCTION SEEMS OK TO ME. 


In this first rrorøositiory FHENARETE surrosed the stor-test 
siven to he trues hut that the user omitted a second stor-test 
for the case where the second argument is not NULL at the 
initial call of REV, | 
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FROFOSITION: 


(DE REV (LI L2) 
(COND 
(NULL L1) L3) 
(T (REV (CDF LL) (CONS (CAR L19 122222) 


AT LEAST YOUR FUNCTION SEEMS ON TO ME. 


In this second Frorositions FHENARETE surrosed that the user 
inadvertently inverted the arsuments of the stor-tests so she 
inverts the two arsuments Li and L2. 

Of the two corrected versions of the initial draft-rrodram 
FHENARETE is assured that they will stor and deliver a result 
Wher rgannc rise 


Nur second examrle is ar extremly "simrlified" version of the 
eauallu well known function FACTORIAL. Here she is 3 


? (DE FACT N TIMES N FACT N) 


As in the previous exemples FHENARETE will first translate 
this unrfrerentesised exrression into an well rarentesised one } 


PROFOSITION 1 3  — 
(HE FACT (N) (TIMES N (FACT N))) 


This first rrorosition is a syntactically correct rrosram» but 
semantically it is not vers correct t | 


-1 at the recursive call N is not modified. This is the 
same kind of error ea in the previous examrle» exert the 
argument here is of numeric ture, 


av there is no stor-test at sil» so there are two (1) 
reasons to make the recursiomn infinit, 


Remember that PHENARETE doesn’t know the intentions of the 
programmer» so she must detect these errors without any 
additional information $ all she can use in the further 
analysis are the semantic srecislists and the rrasmetic rules. 


+ 


So let us look at her Frorosition 3 
F R O FO ໄໄໄ 3 
(DE FACT (N) (CONTI 
(CLE 0) 1) 
(T (TIMES N (FACT (SURI N)))))) 


AT LEAST YOUR FUNCTION SEEMS OK TQ ME, 
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This corrected version is actually a correct version of the 


“-.- mm - -+ 


factorisasl-rrosram. The rerformance is really ě astonishing 
knowing that the system works com Lete lw sutomatical 1 ເ 


uhithout  askins ans Question to the user and without any 
information about the surrosed intention. | 


+ 


Ore lest CuncommercLect) examrle $ 


? (HE ADDIT MN CCZEROF N) M) 
CT (AHIT SURI M Anni N))) 


FROFOSTTION 1 | 


(IE AUDIT ເຕ້ N) 
(CONT 
C(ZEROP N) M) 
(T (ADDIT (SUBRI ຕ້) (ALNI N))))) 


F K O FO ST T IT ON: 
(TE ADDIT (M N) | 
(CONT 
(CZEROF N) M) 
(LE M 0) N) 
CT (ADDIT (SURI M) (ALGI N))))) 


AT LEAST YOUR FUNCTION SEEMS OK TO ME. 


Fresentls we are workins om some extensions as to find 
automaticallwv the intentions and the sosls of given pieces of 
code. We would also like to addoin to FHENARETE a module 
permittins to exrlain the reasonins of the system. This would 
be a great hele to the user. 

The system is running om PFIP-10» uses about 25k word memory 
is imrlemented im VLISF CCHATLLOUX 1976» GREUSSAY 19771], and. 
is used ໄຜ shout 1000 students in our umiversitw. | 
A more detailed descrirtion may be found in CWERTZ 19781, 
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ITERATIVE INTERPRETATION OF TAIL-RECURSIVE LISP PROCEDURES 


Patrick GREUSSAY 


Departement d' Informatique 


University of Vincennes 


September 1976 


ABSTRACT 


The design of a LISP interpreter that allows tail-recursive procedures to be 
interpreted iteratively is presented at the machine-language level. 
Iterative interpretation means that, without any program transformations, no 
environments and continuations will be stacked unless necessary. 


We apply a specific modification within a traditional stack-oriented version 
of LISP interpreter, without any non-recursive control structure. The design 
is compatible with value-cells as well as a-lists LISP processors. 


We present a complete modified interpreter written itself in LISP and an 
informal proof that it meets its requirements. 
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1.0 INTRODUCTION 


It is well-known that tail-recursive procedures (TR for short) are formally 
equivalent to iterative procedures [1]. Unfortunately, when interpreted, 

TR code behaves as ordinary recursive code, and we do not obtain the benefit 
of the formal equivalence. We need a way to make the formal equivalence also 
a practical one. 


The problem of the computation of TR procedures can be stated in terms of 
program transformations, or in terms of interpreters specially designed to 
handle them properly. 


Static program transformations (4, 10] from TR to iterative programs are mainly 
used on compiler-oriented LISP systems, and therefore do not allow full access 
to interpreter-oriented tools of debugging, breaks, traces etc. Moreover, as 
they are name-sensitive, they cannot handle procedures with circular types. 


Interpreter-oriented processing of TR pror canten uses non-recursive control 
structures like message-passing as in Hewitt's ACTORS system[7, 8 | or generalized 
FUNARG devices with static a-lists, as in Sussman's SCHEME [12]. Also delayed 
evaluation of CONS [6 has been proposed in-which partial building of a struc- 
ture is triggered by invocations to the decomposition primitives CAR and CDR 
applied to this virtual structure. 

As interesting as they are, there do not seem to be any evident ways to adapt 
such methods to ordinary i recursive stack-oriented LISP interpreters. 


In contrast, we propose a simple way to process TR procedures iteratively, 
without any program transformations or mon-recursive control structures. Our 
scheme can be used with a-lists as well 88 value-cells stack-oriented LISP 
interpreters. 


2.0 TAIL RECURSIVE SCHEMATA 


In Up a TR schema in iterative form is defined as a recursion equation 
f(xl,...,xn) ສ g(f,xl,...,xn,hl,...,hm) 


where g is a conditional expression defining f in terms of the functions 
hl,...,hm; g is said to be iterative if f occurs exactly in terms of g in 
the form THEN f(...) or ELSE £(...). 


For example, this is the recursive form of the well-known program for 
addition (NOTE 1) 


(de plus (x y) (if (= x 0) y 
(add! (plus (subl x) y)))) 


and this is the corresponding iterative form 


(de plus (x y) (if (= x O) y 
(plus (subl x) (add! y)))) 


NOTE | : (if c el e2 ... en) is the LISP equivalent to the form 


¿f c then el eise e2; ... ; en ft < 
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We must generalize the previous definition of iterative schema to any named 
Arexpression such that Å 


(1) £f = ໃ A(wl...xn) ... (f al...an)) | (NOTE 2) 
i.e. the last term of the h-expression body is a call of this À-expression. 


(2) f = CACxi...en) ... (if c (£ al...an) ...)) 
and | x 
£ = € A(xl...xn) ... (if < el e2 ... (f al...an))) 


i.e. the THEN-part or the last term of the ELSE-part of an if-form is a cail 
of this A-expression. 
Nested if-forms are valid under this schema, e.g. 


f= ( A(xl...xn) ... GE et (ໄມ້ c2 ... (if cm (f al...an) ...) ...))) 


(3) £ = CAQu...xn) ... (cond ... (c e! ... em=1 (f al...an)) ...)) 


Note that the condition c, even if it consists solely of the constant T, must 
be mentionned explicitely, in contrast with for example INTERLISP [13 | style 
of writing CONDs. | | i 


3.0 RETURN CONTINUATIONS 


We notice that these schemata share 3 common property: all of them are instances 
of forms interpreted by the LISP system internal function PROCN. 


These forms will be interpreted recursively if PROGN is defined as follows. 

à Let us suppose the variable EXP is the name of a register which contains the 

| form to be evaluated and the result after the evaluation. TEMP is a working 
register, SAVE and RESTORE push and pop respectively their argument onto a 
stack, REC pushes a return continuation (NOTE 3), and UNREC restores the current 
continuation from the stack. | 


PROGN = Ltemp*expi; 
| while not(null(temp)) 


do save(temp); exp+car(temp); 
rec EVAL; temp+restore(); 
temp+cdr (temp) 
od 
unrec(); 
& NOTE 2: This part of the definition means that we allow non-terminating 
P procedures. | | 
i | 
$ NOTE 3: Here we use the continuation concept [ui] the same way as in [9]. where 


a continuation is just a list of instructions to be executed, 
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On the contrary no return continuation will be stacked at an instance of a 
TR call of our iterative À-expressions if PROGN is designed as: 


PROGN = while not(null(cdr(exp))) 
do save(exp); exp+car(temp); 
rec EVAL; exp*restore(); 
exptcdr (exp) 
od 
exp*car(exp); jumpTo EVAL; 


The last clause of a PROGN argument (a list of expressions to be evaluated) 
will be passed directly to EVAL, which obtains the definitive control of the | 
continuation. 


If LISP TR procedures had no arguments, the interpreter would automatically 
handle calls of forms like 


f = (AQ (if c et e2 ... en=1 (£))) 
as x 


while not c do eval(e2); ...; eval(en-1) od; 
eval(el); 


Then the program writer could design its procedures in the most natural way, 
without paying attention to what are necessary or unnecessary recursions [14]. 
But, as LISP procedures generally use argument passing, we need a way to omit 
unnecessary saving of environments (NOTE 4) by the internal LISP system function 
APPLY, in the case of TR procedures. 


4.0 THE HANDLING OF ENVIRONMENTS 


A redundant environment is defined as a new anvironment caused by the call of 
a TR procedure, the old environment being unnecessarily saved, in spite of the 
fact that it will be never used again. 


To avoid redundant environments, we have to modify APPLY in the following 
manner. | 

When APPLY has discovered that it must handle a A-expression, first it examines 
the stack at a definite place to see if the same A-expression has been called 
before. If this is the case, it does not save the current environment onto the 
stack, and just binds every variable of its formal arguments list to its value, 
then gives the body of the Arexpression to PROGN. If this is not the case, 

then APPLY saves the current environment (which means that the A-expression is 
called for the first time, as far as APPLY can see) onto the stack, then saves 
the list which represents the A-expression being called, then builds-a new 
environment as before, and finally saves a return continuation to a part of 
APPLY which restores environments. The control is then given to PROGN. 
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The definite element which APPLY examines is then the next-to-last item saved 


in the stack. 


This part of APPLY can be designed 
the value-cell of LISP variables) 


in the following manner (the field CVAL being 


* 
2 


PART-OF-APPLY = if car(exp)=A then 
if STACK(TOP-1] =exp then 
for-each x in cadr(exp) do 


x.CVAL+car(arglist) ; 
arglist+cdr(arglist) 
od | 


exp*cddr(exp); jumpTo PROGN 


else 


save(sentinel); 
for-each x in cadr(exp) do 


save(x.CVAL); save(x); 
x.CVAL+car(arglist): 
arglist+cdr(arglist) 
od | 


save(exp); exp*cddr(exp); rec PROGN; 
restore(); | 


vhile STACK [TOP] # sentinel do 


od 


Um 
+e. 


xerestore(); 
x.EVAL+restore() 


restore(); unrec() 


NOTE 4: By environment is meant an association of variables with values. 
In LISP, saved environments can take the form of a-lists, where the 
value of every variable is found (with the possibility of multiple 
instances of the same variable), or can take the form of value-cells, 
in which case the value associated with the variable is unique and 
immediately accessible, old associations being saved on the stack. 
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5.0 EXAMPLES OF TR-PROCEDURES 


Here are some examples to illustrate programming in TR style, with the 
modified interpreter. 


(1) An iterative Ackermann function : 


(de ack (x y) (a x y nil)) 


(de a (x y p) (cond 
((» x 0) (if p (a (car p) (add! y) (cdr p)) 


(add! y))) 
((= y 0) (a (sub! x) I p)) 
(T (a x (subi y) (cons (subl x) p))))) 
(2) Building a list of factorials : 
(de factlist (n) (g n 1 (list 1))) 
(de g (m x r) 
(11 = xn) r + 
(gn (addi x) |. 
(cons (times (addl x) (car r)) r)))) 
(3) Building a factorial procedure with circular type : 
(setq g "CO. (x y f) 
GE (= x O) y 
ວ ລ (subl x) (times x y) £))))) 


to obtain factorial n we call  ((car g) n 1 g) 
Our modified interpreter appears to be "name-insensitive'" and can 
© run this example iteratively, which cannot be handled by program 
transformations. 
(4) Notice that forms like 


(A (x) (x x)) 'Q (x) (x x))) 


being run iteratively do not cause overflow of the stack. 
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6.0 THE MODIFIED INTERPRETER 


Here is the complete modified LISP interpreter (NOTE 5). It is written 
itself in LISP in the machine language style of Sussman's SCHEME 121. 
We use a global environment and we do not use any recursive features. 


(de run () (setq pc ' toplevel) (Loop) 


(de loop () (while t (apply pe nil))) 


We use a non-terminating control loop which runs the "next" procedure, 
in which the non-modified LISP internal function apply is called over and 
over again. The variable pc plays the role of a — COMETRE: 

. Here is the top-level loop : 


(de toplevel () (setq link nil stack nil) (save "top 
(setq exp (read) pe 'eval)) 


(de EX () (print exp) (setq pe 'toplevel)) 
Here are the "pipe-lined" procedures eval, evlis and apply : 


(de eval () (cond 
((numberp exp) (unrec)) 
((atom exp) (setq exp (car exp)) (unrec)) 
(T (setq hdexp (car exp) exp (edr exp) po 'evall)))) 


(de evall () (cond 
((listp hdexp) (save AY (setq pe 'eviis)) 
((or (get hdexp 'expr) (get hdexp 'subr)) 
(save hdexp) (setq pe 'evlis)) 
((aetq temp (get hdexp 'fexpr)) 
(setq arglist (list exp) exp temp pe "apply)) 
((get hdexp 'fsubr) (setq po hdexp)) 
(T (setq hdexp (car hdexp))))) 


(de evlis () (setq built nil pe 'evlisl)) 


(de evlts1 () (tf (null exp) 


(setq arglist (reverse built) exp (restore) pc 'apply) 
(save exp) (save built) (save 'evlis2) 
(setq exp (car exp) po ”ຂບແເ] ) / 


(de evlis2 () 
(setq buio (cons exp (restore)) exp (edr ະກ pe 'evlisl)) 


NOTE 5 : This ກກກ is in fact a simplification of the one running 
under the name of VLISP at the University of Vincennes | 2, 5 | on 
a PDP 10 and a T1600 computer. © 
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(de apply () (cond 
 ((atom exp) (cond | | 
((setq temp (or (get exp 'expr) (get exp 'fexpr))) 
(setq exp temp)) | | 
((or (get exp 'subr) (get exp 'fsubr)) 
(setq pc exp)) 
(T (setq exp (car exp))))) 
(for (eq (car exp) (setq temp 'X)) 
(eq (car exp) (setq temp 'y))) 
(setq \~y~exp exp) | 
(if (eq temp 'y) (setq arglist (car arglist))) 
(Kf (eq (cadr stack) A-y-exp) | 
(rebind (cadr \~y-exp) arglist) | 
(bind (cadr A-y-exp) arglist) (save A-y-exp) (save "apply3)) | 
(setq exp (cddr A-y-exp) pe 'progn)) 
(T (save arglist) (save 'apply2) (setą pe 'eval)))) 


A form (y(xl...xn) el e2 ... en) is like a A-expression but when applied 
to an argument which is a list, it distributes the elements of this list 
over the formal arguments xl...xn . This is very efficient for handling 
multiple values recursive procedures. E | 
(de apply? () (setq arglist (restore) pe 'apply)) | 

ian | | | + 
(de applyå () (restore) (unbind) (unrec)) 
The internal procedure unbind restores old environments, rebind simply 


builds a new environment without saving the current one in contrast to 
bind which saves the old environment. | | 


Next we come to the "sequencer" procedure progn : 
(de progn () (tf (edr exp) nil (save exp) (save 'prognl)) 
(setq exp (car exp) pe 'eval)) 


(de progni () (setq exp (ede (restore)) pe 'progn)) 


Finally, as an illustration of control procedure of FSUBR type, we give the 
code for tf: 


(df tf () (save exp) (save 'if!) (setq exp (car exp) pe 'eval)) 


(de ¿fl () (if exp (setq exp (cadr (restore)) pe 'eval) 
(setq exp (eddm (restore)) pe 'progn))) 
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7.0 CHECKING-RULES 


- 


We must now devise a means of imsuring that our interpreter meets its 
requirements. We shall use “checking-rules" of the form 


S1(P1]1P2:8S2 


where Sl is the state of the stack when entering procedure Pl, $2 is the state 

of the stack when leaving procedure P!, and P2 is the name of the next procedure 
to enter. When P2 is the label "retcont" it means that Pl has no uext procedure 

to enter, so a recursive return to the head of the stack has to be performed. 


Examination of the interpreter yields the following rules, which constitute 
in a sense an abstract version of the interpreter, the enter and exit states of 
the stack playing the role of an history [3] 


a(eval)retcont:a ມ evall:a 
alevalllevlis:hdexp:o y apply:a v fsubr:a y evall:o 
hdexp:a[evlis)evlisi:hdexp:a 
hdexp:a(evlislleval:evlis2:built:exp:hdexp:a y apply:a 
built:exp:hdexp:a(evlis2jevlisl:hdexp:a 
afapplylapply:avw subr:a y fsubr:a 


v progn:a v progn:apply3:A-y-exp:oldbindings:a 
Veval:apply2:arglist:a ` | 


arglist:a{apply2}apply:a 


|-y-exp:oldbindings:alapply3]retcont:a 


8a(progn)eval:prognl:exp:B v eval:8 
exp: 8{progn!}progn: B 


Blif}eval:ıfliexp:ß (NOTE 6) 
exp:B{ifl}eval:8v progn: 3 


Using the checking-rules, we can show that the interpreter handles TR programs 
correctly. 


let foo = (X (xl ... xn) el ... em) 


with em = (foo al ... an) 


First of all we must show that the stare of the stack is the same when evaluating 
em and when entering progn with exp = (el ... em) 


NOTE 6 : Recall that Zf is of FSUBR type. 
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Let exp > (ຂໄ . . . em) with afprogn). 


Suppose m = i, we have 

a(prognleval:a and therefore aleval}. 
If m» ໄ we have ` 

a{progn}eval:progniiexp:a 


and if the evaluation of the head of exp does not enter into an infinite 
loop, we shall obtain 


exp:a(prognl)progn:a 
followed by l 
a(progn) , now with the length of exp being ma] mr 


Further, we must show that when 
apply3: foo: oidbindings: ET 


then exp = em , i.e. it is only when evaluating ew that we can find foo 
as the op. item in the stack. 


Suppose exp = ek with k f m. The state of the stack when Perros eval 
vi be | | | | 


progni: (ek . TE er Btevai} 


and (ek ... em) being a tall of foo cannot be equal to foo a. 
Finally we mise show that, if there is not an infinite loop when evaluating 
one of the ei , 1 < i < m, the old bindings will be restored. 
AS before, if exp = em, with 
apply3:foo:oldbindings:a(eval] 
when eval returns, the state of the stack is 
foo:oldbindings'a{apply3iretcont:a 


and apply3 restores the environment immediately preceding the first call of 


[00 Li 
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8.0 CONCLUDING REMARKS 


We have proposed a LISP interpreter in which TR code behaves at run-time 
as efficiently as well-written iterative code, wich the extra benefit of 
avoiding explicit side~effects as well as manual or automatic program 
transformations. 


Another advantage is that it is insensible to renaming, e.g. if we have 


(de foo (x) ... (foo (g x))) 


and we perform 


(put "fie (get "foo expr) "expr) 


* 


then the call (fie a) will be interpreted exactly the same way as a call 
of foo. 


The modification we have proposed does not depend on particular implemen- 
tations of environments. This one more encouragement to write programs in 
recursive style, particularly since our modification can be applied very 
easily with no apparent drawbacks to any LISP interpreter. 


Ld. Notes The whole thing has been imrroved since 1976, It can 
rum the same way ນວ CO-Tecursive Froceduresy ລາແ 
also what I cell "envelored" Lail-recursionss as in 


{DE foo (x 
(IF CZEROP ; 0 
Chow (Too (SUBI =)3))) 
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